home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / TRANSFRM / SAMPLES / MYTRNSFM.PRG < prev    next >
Encoding:
Text File  |  1998-05-26  |  915 b   |  49 lines
  1. * MyTrnsfm.prg
  2. * Example of subclassing the Transformer.
  3. * To run the subclassed Transformer, execute:
  4. *      DO Transfrm WITH "MyTrnsfm.prg,MyTransformer","MyTrnsfm.prg,MyTransformFiles"
  5. *
  6.     
  7. #DEFINE CAPTION_LOC    "My Transformer"
  8. #DEFINE SUBCLASS_LOC    "  The transformation process has been subclassed."
  9. #DEFINE MENU_LOC    "Menu: "
  10. #DEFINE REPORT_LOC    "Report: "
  11.  
  12.  
  13. DEFINE CLASS MyTransformer AS Transformer
  14.  
  15.     Caption=CAPTION_LOC
  16.  
  17. ENDDEFINE
  18.  
  19.  
  20.  
  21. DEFINE CLASS MyTransformFiles AS TransformFiles
  22.  
  23.  
  24.     cGetFileExt='pjx|scx|vcx|mnx|frx'
  25.  
  26.  
  27.     FUNCTION Do(tlAddFontRules)
  28.         MESSAGEBOX(SUBCLASS_LOC,48, ;
  29.             this.parent.Caption)
  30.     RETURN oTransformFiles::Do(tlAddFontRules)
  31.     ENDFUNC
  32.  
  33.  
  34.     PROTECTED FUNCTION ProcessMenuRules
  35.     ACTIVATE SCREEN
  36.     ? MENU_LOC+DBF()
  37.     GO BOTTOM
  38.     ENDFUNC
  39.  
  40.  
  41.     PROTECTED FUNCTION ProcessReportRules
  42.     ACTIVATE SCREEN
  43.     ? REPORT_LOC+DBF()
  44.     GO BOTTOM
  45.     ENDFUNC
  46.  
  47.  
  48. ENDDEFINE
  49.